home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / Chris_emods.lha / testprogresswin.e < prev   
Text File  |  1997-09-05  |  2KB  |  96 lines
  1. /* This example doesn't work and I don't know why.
  2.    It crashes after locking the screen. But it works
  3.    when I use it in EvenMore. Oh well. */
  4.  
  5.  
  6. /* (Not so strange really, you forgot to open the libs :-) */
  7.  
  8. OPT OSVERSION=37,
  9.     REG=5
  10.  
  11. MODULE '*progresswin',
  12.        'gadtools',
  13.        'diskfont'
  14.  
  15. /* SV: again autorasing exceptions
  16. */
  17. RAISE "LIB" IF OpenLibrary()=NIL
  18.  
  19.  
  20. PROC main() HANDLE
  21. DEF count,
  22.     pw=NIL:PTR TO progresswin  /* SV: allocate it dynamical otherwise the
  23.                                ** memory is uninitialized!!!
  24.                                */
  25.  
  26.   diskfontbase:=OpenLibrary('diskfont.library',37)
  27.   gadtoolsbase:=OpenLibrary('gadtools.library',37)
  28.  
  29.   NEW pw
  30.  
  31.   openprogresswin(pw,NIL,NIL,'(pling) Elevator ready...')
  32.  
  33.   Delay(75)
  34.  
  35.   drawprogresstext(pw,'Going up...')
  36.  
  37.   Delay(25)
  38.  
  39.   FOR count:=0 TO 49
  40.     drawprogressgad(pw,count)
  41.     Delay(1)
  42.   ENDFOR
  43.  
  44.   drawprogresstext(pw,'Stand by...')
  45.  
  46.   Delay(75)
  47.   drawprogresstext(pw,'50 to go...')
  48.  
  49.   FOR count:=50 TO 100
  50.     drawprogressgad(pw,count)
  51.     Delay(1)
  52.   ENDFOR
  53.  
  54.   drawprogresstext(pw,'(snap) Oops! No wire...')
  55.  
  56.   Delay(75)
  57.  
  58.   drawprogresstext(pw,'Gooing doooown...')
  59.  
  60.   FOR count:=100 TO 50 STEP -1
  61.     drawprogressgad(pw,count)
  62.     Delay(1)
  63.   ENDFOR
  64.  
  65.   drawprogresstext(pw,'(Hick)...')
  66.  
  67.   Delay(60)
  68.  
  69.   drawprogresstext(pw,'50 to go...')
  70.  
  71.   FOR count:=49 TO 0 STEP -1
  72.     drawprogressgad(pw,count)
  73.     Delay(1)
  74.   ENDFOR
  75.  
  76.   drawprogresstext(pw,'You can go home now...')
  77.  
  78.   Delay(150)
  79.  
  80. EXCEPT DO
  81.  
  82.   /* SV: Cleaning up
  83.   */
  84.   IF pw
  85.     closeprogresswin(pw)
  86.     END pw
  87.   ENDIF
  88.  
  89.   /* SV: Since v36 we can pass NIL-pointers here
  90.   */
  91.   CloseLibrary(diskfontbase)
  92.   CloseLibrary(gadtoolsbase)
  93.  
  94. ENDPROC
  95.  
  96.